home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / comm.swg / 0040_Simple Phone Dialer.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  1KB  |  50 lines
  1. {
  2. From: WIM VAN DER VEGT
  3. Subj: Accessing the phone
  4. ---------------------------------------------------------------------------
  5. Thanks, works great and is quite simple. Have modified it a litte so it
  6. attaches the ATDT command and waits for the user to pick up the phone.
  7. After that it hangs-up the modem. I forgot how easy it is to send
  8. SOME characters to the serial port.
  9. }
  10.  
  11. Uses
  12.   Crt;
  13.  
  14. PROCEDURE PhoneDialler (Number : String; Port : Byte);
  15.  
  16. var
  17.    SerialPort  : text;   { Yes, a text file! }
  18.  
  19. begin
  20.    Case Port of
  21.       1 : Assign (SerialPort, 'COM1');
  22.       2 : Assign (SerialPort, 'COM2');
  23.       3 : Assign (SerialPort, 'COM3');
  24.       4 : Assign (SerialPort, 'COM4');
  25.    end; { CASE }
  26.    Rewrite (SerialPort);
  27.  
  28.    Writeln('Tone dialing ',Number,'.');
  29.    Writeln (SerialPort, 'ATDT'+Number);
  30.  
  31.  {----Should be large enough to dial the longest number}
  32.    Delay(6*1000);
  33.  
  34.    Write('Pick up the phone, then press space ');
  35.    WHILE NOT(Keypressed AND (Readkey=#32)) DO
  36.      Begin
  37.        Write('.');
  38.        Delay(1000);
  39.      End;
  40.    Writeln;
  41.  
  42.    Writeln('Shuting down modem.');
  43.    Writeln (SerialPort,'ATH0');
  44.    Close (SerialPort)
  45. end; { of PROCEDURE 'Phone Dialler' }
  46.  
  47. Begin
  48.   PhoneDialler('045-762288',2);
  49. End.
  50.